1 GOTO 100 5 FOR A=0TO100:NEXT:RETURN 10 FOR A=0TO200:NEXT:RETURN 20 FOR A=0TO1000:NEXT:RETURN 30 FOR A=0TO2000:NEXT:RETURN 100 PRINT"[147]":POKE53280,0:POKE53281,0:POKE53272,20 200 PRINT"[152]C:[205]>";:GOSUB 30 300 PRINT"C";:GOSUB10:PRINT"D";:GOSUB10:PRINT" P";:GOSUB10:PRINT"L";:GOSUB10 400 PRINT"U";:GOSUB10:PRINT"S";:GOSUB10:PRINT"H":GOSUB10 500 PRINT"[152]C:[205]PLUSH>";:GOSUB 20 600 PRINT"B";:GOSUB10:PRINT"A";:GOSUB10:PRINT"S";:GOSUB10:PRINT"I";:GOSUB10 700 PRINT"C";:GOSUB10:PRINT".";:GOSUB10:PRINT"E";:GOSUB10 800 PRINT"X";:GOSUB10:PRINT"E" 900 PRINT" ";:FORB=0TO8:PRINT"[157][164]";:GOSUB 10:PRINT"[157] ";:GOSUB 10:NEXT 950 PRINT:PRINT" PROTECTED MODE DISABLED":GOSUB 10:PRINT"[164]";:GOSUB10:PRINT"[157] ":GOSUB10 1000 PRINT" PROCESSOR SLOW DOWN TO 0.98MHZ":GOSUB10 1100 PRINT"[164]";:GOSUB10:PRINT"[157] ":GOSUB10 1200 PRINT"[164]";:GOSUB10:PRINT"[157] ";:GOSUB10 1300 PRINT" EMS SWITCHED OFF" 1350 PRINT"[164]";:GOSUB10:PRINT"[157] ":GOSUB10 1400 PRINT" 64KB MEMORY USED FOR 'BASIC.EXE'" 1450 PRINT"[164]";:GOSUB10:PRINT"[157] ":GOSUB10 1500 FORB=0TO20:PRINT"[164]";:GOSUB5:PRINT"[157] ":NEXTB 1550 REM 1600 REM - -------- MAIN ---------- - 1700 REM 1800 SYS (3*4096) 2000 PRINT"[147]" 2100 PRINT" [213][195][195][156][195][154][195][201][213][159][195][153][201] [213][195][201] [213][195][201][213][195][195][195][195][201] [213][195][201] [213][195][201]" 2200 PRINT" [194] [159][194][194] [194] [194] [194] [194] [194][194] [194] [194] [194] [194] [194]" 2300 PRINT" [156][194] [176][201] [194][194] [194] [194] [194] [194] [194][194] [176][195][195][154][203] [159][194][154] [194] [194] [194]" 2400 PRINT" [154][194] [173][203] [194][194] [194] [194] [194] [194] [194][194] [173][195][195][201] [194] [173][195][189] [194]" 2500 PRINT" [159][194] [194][194] [194] [194] [194] [194] [194][194] [194] [194] [194]" 2600 PRINT" [153][194] [176][195][195][203][194] [173][195][201][194] [173][195][189] [194][202][195][195][174] [194] [194] [176][195][174] [194]" 2700 PRINT" [194] [194] [194] [194][194] [194][213][195][195][189] [194] [194] [194] [194] [194]" 2800 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]";:GOSUB20:PRINT 2900 PRINT " PRESENTS:":PRINT:PRINT:PRINT:GOSUB 20 3000 FOR C= 0 TO 3 3100 FOR B=1TO15 STEP .4 3200 PRINT TAB(B)"[145] [151][195][152][195][155][195][153][195] BASIC BITES ! [155][195][153][195][152][195][151][195] " 3300 NEXT B:PRINT"[145]":GOSUB 5 3400 FOR B=14 TO 1 STEP -.4 3500 PRINT TAB(B)"[145] [151][195][152][195][155][195][153][195] BASIC BITES ! [155][195][153][195][152][195][151][195] " 3600 NEXT B:GOSUB 5 3700 NEXT C 3800 FOR B=1 TO 8.5 STEP .4 3900 PRINT TAB(B)"[145] [151][195][152][195][155][195][153][195] BASIC BITES ! [155][195][153][195][152][195][151][195] " 4000 NEXT B:GOSUB 20 4050 FOR A=0 TO 25:PRINT:NEXT 4100 REM ---- GOIN' ON --- 4150 PRINT"" 4160 FOR D=0TO2 4200 FOR B = 0 TO 15 4300 PRINT TAB(15)" " 4400 PRINT TAB(15)" SHADOW" 4500 PRINT TAB(15)" [156]SHADOW" 4600 PRINT TAB(15)" [154]SHADOW":PRINT"[145][145][145]"; 5000 NEXT:GOSUB5 5300 PRINT TAB(15)" " 5500 PRINT TAB(15)" [156]SHADOW" 5600 PRINT TAB(15)" [154]SHADOW" 5650 PRINT"[145][145]";:GOSUB 5 5900 PRINTTAB(15)" ":PRINT"[145]"; 6300 PRINT TAB(15)" [154]SHADOW" 6500 PRINT TAB(15)" [156]SHADOW" 6600 PRINT TAB(15)" ":PRINT"[145][145][145][145]"; 7200 FOR B = 0 TO 15 7400 PRINT TAB(15)" [154]SHADOW" 7500 PRINT TAB(15)" [156]SHADOW" 7600 PRINT TAB(15)" SHADOW" 7650 PRINT TAB(15)" ":REM 7660 PRINT"[145][145][145][145][145]"; 7700 NEXT B 7800 NEXT D 7999 J=100 8000 POKE 53280,6:POKE53281,6:FORI=0TOJ:NEXT 8010 PRINT""TAB(15)" ":PRINTTAB(15)" OF[160] " 8020 POKE 53280,14:POKE53281,14:FORI=0TOJ:NEXT 8030 PRINT""TAB(15)" ":PRINTTAB(15)"[154] OF " 8040 POKE 53280,4:POKE53281,4:FORI=0TOJ:NEXT 8050 PRINT""TAB(15)" ":PRINTTAB(15)"[156] [160] OF " 8100 POKE 53280,6:POKE53281,6:FORI=0TOJ:NEXT 8110 PRINT""TAB(15)" ":PRINTTAB(15)" THE " 8120 POKE 53280,14:POKE53281,14:FORI=0TOJ:NEXT 8130 PRINT""TAB(15)" ":PRINTTAB(15)"[154] THE " 8140 POKE 53280,4:POKE53281,4:FORI=0TOJ:NEXT 8150 PRINT""TAB(15)" ":PRINTTAB(15)"[156] THE " 8160 POKE 53280,6:POKE 53281,6:FORI=0TOJ:NEXT 8170 PRINT""TAB(15)" ":PRINTTAB(15)" BRIX! " 8180 POKE 53280,14:POKE53281,14:FORI=0TOJ:NEXT 8190 PRINT""TAB(15)" ":PRINTTAB(15)"[154] BRIX! " 8200 POKE 53280,4:POKE53281,4:FORI=0TOJ:NEXT 8210 PRINT""TAB(15)" ":PRINTTAB(15)"[156] BRIX! " 8220 POKE 53280,0:POKE 53281,0:GOSUB20 8400 : 8410 : 8420 : 8430 PRINT"[147][155][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"; 8440 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]" 8442 PRINT"[155][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"; 8444 PRINT"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"; 8450 PRINT"[152]WAS ABOUT EIN FULLSCREEN-PLASMA!" 8460 GOSUB 20:PRINT"NIXXX, GELLE?":GOSUB20 8470 : 8480 : 8490 : 8500 PRINT"[147]":POKE 53265,91 8505 A$=" [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160]" 8506 B$="[160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] " 8507 C$=" [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160]" 8508 D$="[160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] [160][146] [160] " 8510 POKE53280,0:POKE 53281,0:POKE53282,0:POKE53283,0:POKE 53284,0 8520 FORI=0TO3:PRINTA$;B$;C$;D$;C$;B$;:NEXT 8760 FORI=0TO50 8770 POKE 53281,10:POKE53282,2:POKE53283,9:POKE 53284,0 8780 POKE 53282,10:POKE53283,2:POKE53284,9:POKE 53281,0 8790 POKE 53283,10:POKE53284,2:POKE53281,9:POKE 53282,0 8800 POKE 53284,10:POKE53281,2:POKE53282,9:POKE 53283,0 8810 NEXT 8820 : 8830 PRINT"[147]" 8899 POKE 53265,27:POKE 53281,0 8999 REM ------ HERE WE GO AGAIN ----- 9000 X1=0:Y1=0:X2=40:Y2=24:POKE 35265,27:T=0:PRINT"[147]" 9100 POKE 1024+(Y1*40)+X1,160:POKE 55296+(Y1*40)+X1,2 9200 POKE 1024+(Y2*40)+X2,160:POKE 55296+(Y2*40)+X2,6 9300 T=T+1 9400 Y1=Y1+1:X2=X2-1 9500 IF T<15 THEN GOTO 9100 9600 POKE 1024+(Y1*40)+X1,160:POKE 55296+(Y1*40)+X1,2 9700 POKE 1024+(Y2*40)+X2,160:POKE 55296+(Y2*40)+X2,6 9800 T=T+1 9900 X1=X1+1:Y2=Y2-1 10000 IF T<30 THEN GOTO 9600 10100 POKE 1024+(Y1*40)+X1,160:POKE 55296+(Y1*40)+X1,2 10200 POKE 1024+(Y2*40)+X2,160:POKE 55296+(Y2*40)+X2,6 10300 T=T+1 10400 X1=X1+1:X2=X2-1 10500 IF T<40 THEN GOTO 10100 10550 FOR B=0TO10 10600 POKE55296+(Y1*40)+X1,10 10700 POKE55296+(Y1*40)+X1,15 10800 POKE55296+(Y1*40)+X1,7 10900 POKE55296+(Y1*40)+X1,1 11000 POKE55296+(Y1*40)+X1,15 11100 NEXT:PRINT""; 11200 FOR B=0TO 24:PRINT"[152] ";:NEXT 11300 POKE53281,12:GOSUB5 11400 PRINT"[147]" 11500 POKE53281,11:GOSUB5 11600 POKE53281,0:GOSUB5 11700 : 11750 PRINT" BASIC BITES !" 11760 PRINT"[151][195][152][195][155][195][153][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][155][195][152][195][151][195]" 11800 PRINT:PRINT"CREDITS:" 11900 PRINT:PRINT TAB(5)"DOSMODE: BRIX" 12000 PRINT TAB(5)"SWINGER: BRIX" 12100 PRINT TAB(5)"SHADOW : BRIX" 12200 PRINT TAB(5)"SHADOW OF.. FADER: DOW JONES" 12300 PRINT TAB(5)"FULL SCREEN PLASMA: DOW JONES" 12400 PRINT TAB(5)"TRON-PART: BRIX" 12410 PRINT TAB(5)"DOOM-CLONE: V.O." 12420 PRINT TAB(5)"MUSIC: ECHO" 12500 PRINT:PRINT"[151][195][152][195][155][195][153][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][195][155][195][152][195][151][195]" 12700 PRINT ".... PRESS SPACE FOR THE DOOM CLONE ...." 12800 PRINT:PRINT"THAT'S IT..FOLX BYE,BYE !" 13000 GET A$:IFA$=""THEN 13000 13100 PRINT"[147]" 13500 PRINT"[154] [172] [146][187][154] "; 13510 PRINT"  [172][146] [187] [172][146] [187] [146][154] "; 13520 PRINT" [167] [146] [190] [188][146]  [146] [190] [188][146]  [146][165][154] "; 13530 PRINT" [170] [146] [172][146] [187] [146] [172][146] [187] [146]  [146][181][154] "; 13540 PRINT" [182] [146]  [146]  [146]  [146]  [146]  [146][181][154] "; 13550 PRINT" [172] [146]  [146]  [146]  [146][187][154] "; 13560 PRINT"  [146][162][185][162] [184][146][162][184] [146][154] "; 13570 PRINT"  [146]  g [146][190] [188] g [146]  [146][154] "; 13580 PRINT" [188] h [146][161]u [182] [165] [146][190][154] "; 13590 PRINT" [188] g [146][161] [182] g [146][190][154] "; 13600 PRINT" [182] [146][187] [172] [146][180][154] "; 13610 PRINT"  [185]`[185][183][183] [146][154] "; 13620 PRINT" [161] [146][191] [184][191] [146][161][154] "; 13630 PRINT"  [182] [185][175] [191] [146][154] [162] [146][187][154]  "; 13640 PRINT"[154]  b [146][180] b[191] [191] [146][154] [172] [146][191][162][188] [146][187][154] "; 13650 PRINT"  [146][161]  b [146] [184] [146][154] [172] [146][191][188] [191] [146][154] "; 13660 PRINT"  [146][180] [172] [146][154] [172] [146][191] [146]  [191] [146][154] "; 13670 PRINT" [188] [146][187] [172] [146][190][154] [172] [146][191] [146]  [146][191] [146][154] "; 13680 PRINT" [188] [146][190][154] [172] [146][191] [146]  [146][191] [146][190][154] "; 13690 PRINT" [184] [146][184][154] [172] [146][191] [146][191] [146] [154] "; 13700 PRINT" ccc[146][154] [172] [146][191] [146][191] [146][190][154] "; 13710 PRINT"  [146][154] [172] [146][191] [146][191] [146][190][154] "; 13720 PRINT"  [146][154] [172] [146][191] [146][191] [146][190][154] "; 13730 PRINT"  [146][154] [172] [146][191] [146][191] [146][190][154] "; 13740 PRINT"  [146][172] [146][191] [146][191] [146][190][154]  13800 [137] 13800